Skip to main content
This forum is closed to new posts and responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:

HCL Software Customer Support Portal for U.S. Federal Government clients
HCL Software Customer Support Portal

Notes/Domino 8 Forum

Notes/Domino 8 Forum
Previous Next

Still does not work - Memo.send()

hi,
I have simplified the agent as following and it still gives me the same error i.d
No route to domain name.Check Server, Configeration etc.
The agent works if it is run manually but does not when it is instigated from a WebQueryOpen.
Here is the code of the agent:

Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim body As NotesMIMEEntity

Dim header As NotesMIMEHeader
Dim stream As NotesStream
Set db = s.CurrentDatabase
Set stream = s.CreateStream
s.ConvertMIME = True
Dim memo As New NotesDocument(db)
Set body = memo.CreateMIMEEntity
Call body.SetContentFromText(stream, "text/html",ENC_NONE)
Call stream.writetext(|<HMTL>|)
Call stream.writetext(|<body bgcolor="blue" text="white">|)
Call stream.writetext(|<table border="2">|)
Call stream.writetext(|<tr>|)
Call stream.writetext(|<td>Hello World!</td>|)
Call stream.writetext(|</tr>|)
Call stream.writetext(|</table>|)
'if scheduled agent this returns the name of the server
'Below uses the ampersand (&) to concatenate user$
Call stream.writetext(|<br><font size="+5" color="red">You have unread messages to approve</font>|)
Call stream.writetext(|</body>|)
Call stream.writetext(|</html>|)
Call body.SetContentFromText(stream, "text/HTML;charset=UTF-8", ENC_IDENTITY_7BIT)

memo.Form = "Memo"
memo.Subject = "test message"
memo.From = "webmanager@salvationarmy.org.uk"
memo.ReplyTo = "webmanager@salvationarmy.org.uk"
memo.InetFrom = "webmanager@salvationarmy.org.uk"
memo.Principal = "webmanager@salvationarmy.org.uk"
memo.SendTo = "psarfaraz@hotmail.com"
s.ConvertMIME = True
Print "<p>Sending HTML memo</p>"
memo.Send(False)


End Sub

I have signed the agent by the server as well.
anyhelp would be highly appreciated.


Feedback response number WEBB7PXGQA created by ~Martha Xanresaplopoopsi on 03/08/2009

Send email agent does not work: No ... (~Martha Xanresa... 6.Mar.09)
. . @Internet (~Tip Minreplopy... 6.Mar.09)
. . . . @Internet (~Martha Xanresa... 6.Mar.09)
. . . . . . . (~Tip Minreplopy... 6.Mar.09)
. . . . . . . . @internet (~Martha Xanresa... 6.Mar.09)
. . . . . . . . . . Still does not work - Memo.send() (~Martha Xanresa... 8.Mar.09)
. . . . . . . . . . . . The web server is not correctly set... (~Bill Frokimari... 11.Mar.09)




Printer-friendly

Search this forum

Member Tools


RSS Feeds

 RSS feedsRSS
All forum posts RSS
All main topics RSS